RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


**F ILE**1D**GETQC 


VvY Vu 
VV VvYU 
rs) VU 
Vv Vu 
Vv Vu 
Vv Vv 
Yu VY 
oo Ww 


VVVVUYVYYYOYU 
ee eed 


ooococ0o0cd oo 
gooccc0c0c0d oo 
oo oo 
ao oo 
og oo og 
oa oa oa 
ago oo 
oo oo 
oococococ00c0c0aq0 
goocoococccCc0cCq 
= 
— 
—— 
os 
ee i 
ee a en nos 
— 
— 
oo 
ia 
wou ww 
ww wu 
wus ww uu 
wu wus wu 
wus uu uw 
wu wu wu 
wu wu ww 
wus wu wu 


nn MWnnm 
nn nw nn 
nn nw nn 
nn nw nn 
mn nw nn 
mn nw nn 
nn nw nw 
ANNMM nw 
MAMMW nw 
ein’ Coakont 
iced od 


8 8 Od Od Od Od Od Og Bg Od Od OO 
Od as Od Ok Od Od Od ng Ot Oe Os OO 
—— os 
| eed ——, 


LLLLLLLLLL 
LLLLLLLLLL 


GETQC 1984 00:40: VAX=11 Bliss=32 V4.0-742 Pa 1 
pat 19:60:35 DISKSVMSMASTER:CRUNOFF.SRCIGETQC.BLI;1>— (1) 


TRANSFERRED. 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ND SHOULD 


ae nepeeaeeeeeeeeneennennnnene 


001 MODULE getqc ( IDENT = 'v04-000' 

P 00 ¢ MBLISS32C, ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE 
903 - NONEXTERNAL = LONG-RELATIVES] 
905 BEGIN 
097 i eeeeeeeeeeeeeeeeeeedeeeeeeeeeeeeeeeeeeeeedeeeeeeeeeeeeneeeeeeeeeeeneeeeeeeet 

'e 
$09 ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
010 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
tf is ALL RIGHTS RESERVED. 

i iw THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
014 1 '* ONLY IN ACCORDANCE WITH THE TCRMS OF SUCH LICENSE AND WITH THE 
015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
O16 i's COPIES THEREOF MAY NOT BE PROVIPCD OR OTHERWISE MADE AVAILABLE TO ANY 
O17 ie OTHER PERSON. NO TITLE TO “NC OWNERSHIP OF THE SOFTWARE IS HEREBY 
019 
020 

y 

i 

7 
6 
7 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 0 '‘e A NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
§ ; _ CORPORATION, 
i® 
2 0 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
§ 3 - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
if 
' 
§ 4 I soaaieaiilieeanametahtedecendabesiaethinididaeenidi ees ceibaineneedtontidaammnmmnehdanlibica nities bie Dodie 
9 ; 
§ $56 '++ 
H = FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
3 33 : ABSTRACT: Attempts to get a single character enclosed in quotes. 
3 35 ; ENVIRONMENT: Transportable 
37 i AUTHOR: R.W. Friday CREATION DATE: May, 1979 
i 


vot=too Revision History 1b-s8 =30P 71382 99: $8; 44 Mt VMSRAS FER CHUNOFE-SRCIGETOC.BLIC3°" 


040 peste "Revision History’ 
MODIFIED BY: 
i 
i 
i 
i 
ie 


X=1 
SK$ 


Oooo 


a ee 
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002 REROOO002 Ron Randall 07-Mar-1983 
Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 
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GETQC bes -1984 00:40:47 VAX-11 Bliss-32 V4.0-742 
v04-000 Module Level Declarations 14 be 1984 90: be3 45 Pyee 


DISKSVMSMASTER: CRUNOFF. SRCIGETQC.BLI;1 


3 ¢ 030 } ZSBITL ‘Module Level Declarations’ : 
:  §4 a 1! : 
; 55 053 1 | TABLE OF CONTENTS: 
; $ 054 1/3 3 
; 37 099 INCLUDE FILES: ; 
: §9 ba9 1 LIBRARY "NXPORT:XPORT'; ! XPORT Library : 
3 rs ft : REQUIRE "REQ:RNODEF'; ' RUNOFF vorlent definitions : 
; 6¢ v 8196 | RIF DSRPLUS ETHEN ; 
 « U 191 1 LIBRARY "REQ:DPLLIB'; ! DSRPLUS BLISS Library : 
> 64 19¢ 1 %ELSE : 
: 65 0193 1 LIBRARY 'REQ:DSRLIB'; ! DSR BLISS Library ; 
; 666 0194 1 FI : 
: 67 0195 1 : 
: 68 0196 1! : 
> 69 0197 1 | EXTERNAL REFERENCES: ; 
: 70 0198 1 | ; 
i 0199 1 EXTERNAL ; 
: 4 £344 i FSO1 : FIXED _STRING; : 
oe O90 | EXTERNAL LITERAL ‘Error messages : 
> 75 020 1 RNFMQS, ; 
; 26 0204 RNFQST: : 
; 78 0206 1 EXTERNAL ROUTINE : 
: 79 0207 1 RMA, : 
: 80 0208 1 GETOS; : 
fir, a 0209 1 : 


—| 


5 
GETQ $ep-1984 00:40:47 VAX-11 Bliss-32 V4.0-742 P 4 
V “500 Module Level Declarations ats 7 90:00345 DISKSVMSMASTER:CRUNOFF .SRCIJGETOC.BLI:1> (4) 


GLOBAL ROUTINE GETQC = 


— 


'e4 
' FUNCTIONAL DESCRIPTION: 
GETQC attempts to get @ quoted string that consists of precisely one character. 
If such an animal is found, the character enclosed in quotes is returned. If 
no quoted character is found, hs 4 value -2 is returned. The value -2 is returned 
in the case of an error, in which case an error message will have been issued as well. 
Note that if the user specifies an empty quoted string, the value 0 is returned. 
FORMAL PARAMETERS: None 
IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: 


See above 
SIDE EFFECTS: None 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 

BEGIN 

LOCAL 

GETQS_RESULT; 

‘Initialize working storage. 
§ FS_INIT (FSO01); 

Attempt to get a quoted string. 

GETQS_RESULT = GETQS (FS01); 

'See if user did s oc lly a quoted string. 

ai OO MESA! EQL GETQS_NONE 

!No quoted string found. 

ETURN -1; 


TOO_LONG) OR 


IF (.GETQS RESULT EQL GETQS 
1) GTR 1) 'User can specify only a single character. 


yi oF S-LERGTH (FS R 


BEGIN 
ERMA (RNFQST, FALSE); 
RETURN =2 


END 
ELSE 
HF 99g OE rOS REGUL! EQL GETQS_BAD 
Something's wrong with the quoted string. 
ERMA (RNFMQS, TRUE); 
RETURN -2 
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END 
ELSE 
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Sep-1984 VAX-11 Bliss 
Module Level Declarations 1$-sen-1964 99: $8; $f DISKSVMSMAST 
rae weer has correctly specified a single quoted character. 

LOCAL 


jpeture the quoted haracter 
eFS_LENGTH (FSO1) EQL 
faet Taout an empty quoted string. 


RETURN 0; 


= .FS_START (FS01) 
ReTUi THSRCHAR (.X) 


OOO NNN NNO oO 


MO CONOUNES WN —-OVOOon 
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END; !End of GETQC 


TITLE GETQC 
-IDENT \V04-000\ 
EXTRN 


=32 V4.0-742 
ER: CRUNOFF..SRCIGETOC.BLI; 


FSO1, arrose” RNFQST 


“EXTRN ERMA. GETQS 
.PSECT $CODES,NOWRT,2 


0004 00000 ENTRY geroc. a? R2 
52 000000006 EF 9 0000 MOVAB 
OC A2 04 0000 CURLS 1313 
62 10 Ae 9 900¢ MOVAB S01+16, FSO1 
046 =A $ DO 0001 MOVL FSO1, FS0144 
DD 00014 PUSHL R 
000000006 FF or FB 00016 CALLS #1, GETQS 
3 0 D1 00010 CMPL GETQS_RESULT, #3 
04 12 000 BNEG 18 
50 01 cE 00 MINE GL #1, RO 
02 50 D4 0026 1$ CMPL § GETQS_RESULT, #2 
06 13 00029 BEQL «= 2S 
01 0c A2 01 00028 CMPL  -FS01+12, #1 
OA 15 90 F BLEG «360s 3$ 
E D4 0 1 28: CLRL 80 = (SP) 
000000006 i DD 0 3 BUSHL #RNFQST 
01 " p| B 3$ CHL GETOS_RESULT, #1 
13 12 BNEQ 
1 DD 0004 PUSHL #1 
000000006 8F DD 0004 PUSHL  #RNFMQS 
000000006 EF ; i 48 4$ CALLS #2, ER 
RET 
0c a2 p 5$ TSTL -FSO1412 
0 BEQL = 6 
50 62 p MOVL  FSO1, xX 
60 9A B MOVZBL (xX), RO 
04 e RET 
50 D4 F 6$ CLRL —s RO 
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X-11 8 742 Page 
SKSVMSA R-CRUNOFF SRCIGETQC.BLI; «a5 


Elapsed Time: 

Lines/CPU Min: $96 
Lexemes/CPU-Min: 11152 
ean Used: pages 
Compilation Complete 


TQ 16 R -1984 VAX- genie 
$i. 2500 Module Level Declarations ~Sep-1 7 99: $6; $5 DIS 
04 00061 RET $ : 
; Routine Size: 98 bytes, Routine Base: $CODES + 0000 ; 
: 188 0384 1 END ‘End of modul 
° -cnad of module Ps 
; 158 085 0 ELUDON : 
; PSECT SUMMARY : 
: Name Bytes Attributes ; 
: SCODES 98 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 3 
3 Library Statistics 3 
See Se, oe Syabel§ ecocce== Pages Processing 3 
3 File Total Loaded Percent Mapped Time ; 
: _$255$DUA28: :ESYSL 1BIXPORT .L32;1 590 9 0 252 00:00.1 : 
; 7$255$DUA28: CRUNOFF .SRCIDSRLIB.L32;1 1248 1 1 86 00:00.3 ; 
F COMMAND QUALIFIERS 3 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMJ ZE)/LIS=LIS$:GETQC/OBJ=0BJ$:GETQC MSRC$:GETQC/UPDATE=(ENH$:GETQC) 3 
Size: 98 code + 0 data bytes : 
Run Time: 0:03.5 : 


P ENT CORPORATION 
ND PROPRIETARY 


